Interactive Media Design Review 1999/Interactive Media Design Review 1999.iso/pc/Demos/Herois/Codigo.Cst/00071_Script_BuscaGenerico

Text File | 1999-03-19 | 1KB | 45 lines

property spr, mem
property sprPalavras -- Sprite que contem lista de palavras
property ultimoValor

on getBehaviorDescription
  return "Automaticamente atualiza lista de palavras"
end

on getPropertyDescriptionList
  set p_list = [ ¼
    #sprPalavras: [ #comment:  "Sprite que contera lista de palavras", ¼
                    #format:   #integer, ¼
                   #default:    0 ] ¼
  ]
  return p_list
end

on beginSprite me
  set spr = the spriteNum of me
  set mem = the member of sprite spr
  zera me
end

on zera me
  set the text of field mem to ""
  set the ultimoValor of me to ""
  sendSprite(the sprPalavras of me, #zera)
end

on preenche me, palavra
  set the text of member mem to palavra
  set the ultimoValor of me to palavra
  sendSprite(the sprPalavras of me, #preenche, palavra)
end

on idleSprite me
  if not (the visibility of sprite spr) then return

  put the text of member mem into pal
  if pal <> ultimoValor then
    set ultimoValor = pal
    sendSprite(sprPalavras, #preenche, pal)
    stopEvent
  end if
end